الدرس الثاني :- تعلم دلفي 2007 
DELPHI 2007 FOR WIN 32‏ 


. مصطلحات شائعة في البرمجة‎ ١ 
. في هذا الدرس نتعرف على النافذة و أهم خصانصها‎ 
. نعرف على بعض الإضافات لتحكم في البرنامج‎ 
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ترت ع ا كرين الشف البر دة 


مصطلحات متعددة و( مهمة = وظيفة ) واحدة المقابل اللاتيني 
الم ركبات - العناصر = المكونات = الكائنات = الأدوات = المحسمات - الأغراض إ٠‏ كأءع[00 


حصا < الزات > امفات < الام 
الإحراء = الأمر البرجحجي = الشفرة = الكود = السطر البرججي = الحرر Code Pascal‏ 


1 - النموذج (البطاقة) و أهم خصائصها :- 

تعتبر النافذة أهم مكون في التطبيق فهي الميدان العام لوضع مكونات البرنامج القادم و المبرمج 
المحترف هو الذي يتقن التعامل معها من ناحية المظهر و ترتيب العناصر عليها و كذلك ضبط 
خصائصها جيدا بما يقدم نظرة جيدة عن البرنامج بأكمله . 
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هناك 7 خصائص اعتبرها أساسية للتحكم في النافذة قر بتجربتها الواحدة تلو الأخرى › بالنسبة 


لخاصية عارء مله 8 النتائج تظهر بعد تنفيذ البرنامج . 
الخصائص التي تخذها النافذة سوف تنطبق تلقائيا على بقية العناصر . 


أ - إظهار و إخفاء النوافذ : بواسطة الأداة الموضحة في الصورة التالية . 
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الاتجاه للأسفل النافذة مفتوحة دائما » الاتجاه أفقي تفتح عن الاقتراب منها فقط . 
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ب - مكان النافذة و حجمها بعد التنفيذ : نتعرف بواسطة هذه الأداة على مكان ظهور النافذة و 
حجمها بعد التنفيذ بالنسبة لسطح المكتب ( الشاشة) كما يمكنك تحريكها أثناء البرمجة . 
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ج - أداة إلغاء عنصر بعد إضافته للنموذج : في أعلى نافذة ( 8إu)عل)Š‏ ) شجرة عرض 
المكونات . 
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1 - عرض الوحدات المستخدمة في المشروع . 

2 - عرض النماذج (البطاقات) المستخدمة في المشروع . 
3 التبديل في العرض (الإظهار) بين البطاقة و الوحدة . 

4 -التنفيذ السريع للبرنامج  .‏ 

5 - في الوسط حفظ التغيير الأخير و حفظ كل المشروع . 


N a o O 
تحته خط في الزر الأخر. ( بعد التنفيذ نكتفي بالنقر على حرف الميم بدل تحريك الماوس).‎ 
مثلا : موافق نجد خط تحت الميم » نكتبه في الخاصية «٥نامهء كما يلي : &موافق › الأداة‎ 
.1 موجودة على يسار لوحة المفاتيح مع رقم‎ 


و أخيرا ... الألوان الخاصة:- 

من اجل لون نشکله حسب اختیارنا ٠‏ مقابل الأخاصية إ0آامع 

مرتين بسر عة فيظهر و الألوان نختار المستطيل في الأسفل و نعين اللون الخاص 
بنا . ( كما هو الحال في الرسام) . نفس الشيء بالنسبة للخاصية ٤ه‏ (تسمى الخواص المركبة). 


ترتيب الخواص في مفتش العناصر :- | 

نضع مؤشر الماوس في وسط نافذة مفتش العناصر و ننقر على الزر الأيمن تفتح نافذة نختار 
ترتيب و نذهب إلى حسب الاسم ( بالانجليزية) فتظهر الخصائص مرتبة حسب الأحرف 
الأبجدية . سوف نخصص موضوع كامل في المستقبل . 


3 - ننطلقی مع الأمثلة 
أ - المثال الأو ل : زر ۸اطا1ط) و مربع تحرير نص 1لم + أدو ات للدیكرر عpم2طء‏ 
من مكتبة المكونات المرئية ۷٣1‏ نفتح الصفحة اھ ہاtاA۸dd‏ و نختار منھا رtطitطt‏ و 
Shape‏ الاختيار الأول و الآأخير گ الصورة المرفقة . 
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و 1{1لم »من صفحة لإةلصهاء . نرتبها كما في الصورة التالية : 
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ننقر مرتين على الزر فينقلنا دلفي إلى محرر الشفرة التالي : اكتب الشفرة و نفذ البرنامج . 


HEHE SRE E TMM EE j ¥ 7” FF ¥ 
8 weltome Page | punt | 

۰ procedure TForml.BitBtn:LlickISERAErE: TWhjectE] ; 
: | begin 


ERLE Te aa oad, فا الاق الوك‎ 


- | EnH:?; 


طبق بعض الخواص التي ذكرتها في الأعلى على الزر و النافذة . 
بعد التنفيذ انقر الزر لإظهار النص في محرر النص . 


نبداً الان في التعلم السيع 


BIBEN 1 


بالنسبة للعنصر مم2 طء قم بالتغيرات من اجل لون تختاره أو شكل معين من الخاصية ء٥‏ 


و الخاصية طیںإط 
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إذا أردت التدرب ادخل عليها تعديلات لتصبح متل بطاقة الصفحة الرابعة (نافذة انطلق مع 
ألدلفي 2007). 


ب - المثال الثاني :- 

ر 
ننقر على الزر و نكتب الكود التالي :- 
٩ E |‏ :زم چ و لا ”اک ا 


j Welcome Page | [E Unit1 1 
- XHprocedure TForrml.BiICETtnHnZELLlIIickEI[SENAErE: Th eCL) ; 

- | begin 
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-_ End; 
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المثال الثالث :- 


نضيف عنصر و هو مربع نص [عطه] و زر بسيط . 
ننقر على الزر و نكتب مايلي :- ) 
Î Welcornie PağE Eê Unit :‏ 
Hprocedure TForml.ButtonlLlick[SeEnNnAeEr: TObjeCE] ;‏ 11 
hejin‏ 
+ 'نتعرض النص برچجيا بف وسط'|=:apt1io0n-.labell1l‏ 


: و | سم | لتصوص لاحظ سواه االجججكع ي امان ,االشص‎ ES: 
- End; 


-_ En. 


كيفية كتابة الشفرة لعرض النصوص الطويلة بطريقة سهلة :- 

أولا نكتب السطر التالي : ;)' '+ ' '( labe11.caption:=‏ 

نضع المؤشر خلف علامة الزائد (+) و ننقر من لوحة المفاتيح الزر إعأمع 
E EE O TT OS‏ 


بعد التنفيذ يظهر كما يلي :- 


بسم الله الرحمن الرخيم 


نتعرض النص برمجيا فقي وسط واسم النصوص لظ 
NB SEE CE‏ 


لمل ارآ دد 
نضيف زر جديد للتطبيق السابق 


× ]8| | المثال الرابع 
لكي بظهر النص في الوسط هناك اربعة خطوات 


alignement = ta center 
auto size = false 
layout = tlcenter 


wordwrap = true 


و نكتب في حدث النقر على الزر 2 الكود التالي :- 


procedure TForm1.BitEtn2Click [Sender : 


end; 


و ا ا 


| ×| ۳ -االمٹال الرابح 
لكي بظهر النص فى الوسط هناك اربعة خطوات 


alignement = ta center 
auto size = false 
layout = tlcenter 
wordwrap = true 
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لكي بظهر النص في الوسط ناك اربعة خطوات 
alanement = ta center‏ 

auto slze = false 

layout = tcerter 
wordwrap = rule 


في المتال الرابع نعرض رسالة تحتوي نص من عنصر [عطه] (مربع نص) و في المتال الثاني 
عرضنا رسالة من مربع تحرير نص أ1لع. 
ماهو الفرق في الكود بين الزرين 1 و 2 في المثالين السابقين ؟؟ 


المثال الخامس ٠‏ 
من صفحة ل2۲ لم ه)ء نختار عنصر ×0oطمuهإع‏ و نضع عليه 03 eناص‌ر radiobutton‏ 
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^ RadioButtaon3 


ننقر على العنصر 1١u))0طاه1ل‏ هع و نكتب الشفرة التالية :- 


Procedure TForml.RadicButtonlLlickEISENnAEE: TOpjecLC] ; 
bheEqgin 

form1.Color:=cl1red:| 

end; 
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نفس الشيء بالنسبة للعنصرين الأخرين نكتب في مكان مإ على التوالي عuإاط‏ و )عماط 
نفذ المثال . .....عند كتابة الشفرة لاحظ إننا نسبق اللون المختار بحرفي ا)٣‏ 
ماذا لو أردنا تلوين النموذج بلون مركب كما في الصورة التالية :- 


rUp ED: 1‏ ا 
RadiaButtan1‏ ` 
RadioButtonz‏ ` ^ 
 RadiaButtarn3‏ ' 


في خاصية اللون بالنسبة للبطاقة الحالية ننقر مرتين لاختيار اللون المركب و بعد إتمام العملية 


يظهر في مكان اللون الكود المناسب للون المختار كما يتضح بالصورة في الأسفل 
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نستعمل شفرة اللون في كود التعليمة كما يلي : 

أولا العنصر المراد تلوينه و هنا هو النافذة ثانيا الخاصية مثل ره تالا اللون المختار 
في حالة النافذة الكود يصبح كمlيلي FORM1.COLOR:=$00E9FEEC‏ 

عندما نريد تغيير لون الخط يكون الكود كما يلي FORM1.FONT.COLOR := c1bl1ue;‏ 
لون خط الكتابة ازرق . اللون مسبوق بحرفي 1ء ( في دلفي لا يهم كتابة الحروف الكبيرة او 
الصغيرة لان دلفي غير حساس لحالة الحروف ). 


ملاحظة : الكود البرمجي في كل الحالات يتكون من اسم العنصر ثم نقطة ثم اسم الخاصية ثم 
نقطتين فوق بعض (:) ثم علامة تساوي (=) ثم القيمة (الحدث ) متبوعة بفاصلة منقوطة () . 


لاحظ جميع الاكواد السابقة ( في الأعلى )كيف كتبت و بعد ذلك تمعن و جرب الاكواد التالية . 


- عرض رسالة فارغة مباشر  show message( 'J);j‏ 
- عرض رسالة من مربع تحرير نص showmessage (edit1.e€xt);‏ 
- عرض رسالة من مربع نص showmessage (1abe11.capti0n);‏ 
- تلوين النافذة بلون عادي ; form1.color := clred‏ 
- تلوين النافذة بلوj‏ مركب ; form1.color:=$00E9FEE—C‏ 
- تلوين خط النافذة ; form1.font.color := c1 black‏ 
- تغيير لون خط مربع تحرير نص ; 4ع edit1.c010۲ := c1۲‏ 
- عرض نص في مربع تحرير نص من مربع نص ; 101۸مabe11.ca]‏ =: edit1.text‏ 
- تلوين خط مربع نص ; |ع]1ء =: labe11.c010۲‏ 
1- مسح مربع تحریر نص ; ' ' =: )×ع].d1)1ع‏ 


س لا ین جب dd © UO‏ »س O 0G‏ 
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11 - مسح مربع نص ; ' ' =: labe11.cap(101‏ 

مثال سادس ت 

ننتقل إلى الأرقام و العملية الحسابية 

تطبيق جديد يتكون من زرين و تلاثة مربع تحرير نص ×ع].1)1لء و مربع نص 1ءطه1 يظهر 
باللون الاسود ( انك اصبحت تعرف العناصر بمجرد مشاهدتها ). الصورة التالية ٠:‏ ( استخدمت 
دلفي 7 لايت من اجل السرعة فقط). 


نستخدم زر واحد و مربعي تحرير نص و مربع نص ( في القسم الأول من التطبيق). 
في حدث النقر على 01]اںط نكتب الكود التالي : 


ll Forml: TForml?; 


. H implementation 


{FR *.dfm} 


30 procedure IFoOEmMLI. BULCLGOHILCLIICEISENOUEE: TOBDIEEE 


const | 2‏ | 
ا 20د 
التصريح بالمتخیر ات _ ___|ڀ“ے a,b:real:‏ 


| ll A:real? 

heEgin 

A:=3LCFLOCUEE |lPAITCL1l. Text} F 
bhH:=StrFLOCUEE leAitd.teEXL] F; 
e SE 


نفذ التطبيق بدون كتابة السطر الأخير (اللي بداخل المستطيل الأخضر). 
لان الهدف منه ملاحظة كيفية استخدام الأقواس و كيفية الاستفادة من الثابت في العمليات 
الحسابية . 
القسم الثاني من المثال 
أضف ألان الزر الثاني و مربع النص الثالث في الأعلى و انقر الزر الأول و أضف السطر اللي 
نستخدم الزر الثاني لمسح المربعات 
كود المسح موجود في الأعلى في السطرين 10 و 11. نفذ التطبيق و الناتج التالي :- 


JF Formîl اگ‎ E 3 


Buttaonz# | Button 1 | 


اكتب رقمي 5 و 6 في المربعين كما هو ظاهر أو اكتب أية أرقام . 


الثابت اورهء هو عبارة عن قيمة لا تتغير بعد التنفيذ أي تبقى ثابتة في الذاكرة . 
e e aS GS DE E Sc‏ 
غير الإشارة فقط () ٠‏ (-) ء (/) ء (*) 


كود المسح بالنسبة للزر الثاني كمايلي ( بكل صدق هل استطعت كتابته استنادا للأمثلة السابقة ). 
Edıit1.text:=' ';‏ 

EdIt2.text:=' '; 

EdıIt3.text:=' '; 

Label1.caption:=' '; 

يمكنك إضافة صفر بين (علامتي التنصيص) الفاصلتين العلويتين . '0' و لا تنسى الفاصلة 
المنقوطة . 


الشفرة تتكون من العنصر (من صفحة مكتبة العناصر المرئية) أضف عنصر و لاحظ 
الخصائص ٠»‏ تظهر خصائصه فى مفتش العناصر لكل خاصية مميزات عدل القيمة الافتراضية 
لخادب 115 هك هي كل ال لار اة لات هر العرية . لتعطي تطبيق حسب 
الحاجة . تعريف خاص بي فقط. ۰ 

ببساطة خذ عنصر (غير اسمه إن شئت) أضف نقطة و اختر خاصية (اكتبها كما هي في مفتش 
الكائنات) أضف نقطتين ( : ) ثم أضف (=) اكتب الميزة لهذه الخاصية و اختم بفاصلة منقوطة 
(;) . لا تنسى إضافة المكونات المرئية للتنسيق بين المكونات و الكود (الشفرة). 


الدرس الثاني انتھی ... گي الدرس القادم نستعرض عدد کبیر من الأمثلة التطبيقية 


رقن ری رون لما 
في الدرس الثالش فتعرض للمواضيع القالية : 


القوائم و كيفية إنشاءها . 
مثال دالة من الدرجة الثانية 

حاسبة متميزة 

برنامج عرض صورة و معلومات بجانبها 
كيفية حفظ تطبيق و كيفية إظهار الملف التنفيدي 


SKN“ 


e Ea 
و لكل ملاحظانكم الرجا ء ترك رد فى منتدى مهندسي البرمجة‎ 


www.dzinfo. prog. fr/vb 


ميلود مبروك عماري 
الحزائر قى 06.12.2008 


